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to class X y () 

to number x y :: nprint () 

to vector x y :: substr () 

to atom x y (CODE 29) 

to string x y :: substr () 

to arec x y () 

to float X y :: fprint () 

to falseclass x y (isnew) 

to isnew (CODE 5) 

l^'false«-falseclass. 

Cf='(TITLE USER DO SIZE CODE SELF AREC GLOB MESS RETN CLAS 

length eval or and mod chars error 

<^M/;:-C]?'TSt#()<5f}<-={}*+=><> go goto turn next contents end QAtCtKtNtZ) 

•th75.tfl. 

DONT EDIT ABOVE HEREt—These classes and atoms mentioned early to guarantee a 

**ddresses for machine code. 

to isnew (null instance:»(C^instance«-allocate permsize. 

instance[0]«-class. IT true) 
tfalse). 



th90.tf2. 
BOOTSTRAPPING MAGIC. 

thTS.tfl. 

HEREWITH A SOMEWHAT WHIMSICAL ANNOTATED VERSION OF SYSDEFS. ANNOTATIONS A 

**N ITALICS. WHILE IT IS HOPED THAT T 

**HIS WILL PROVIDE SOME ELUCIDATION OF 

**THE CODE ESCAPES, OBSCURITIES WILL NO 

** DOUBT PERSIST . THE ANNOTATIONS ARE 

** INTENDED TO BE BUT DIMLY LIGHTED MAR 

**KERS ON THE ROAD TO TRUE ILLUMINATION 

■■''■,** 

theo.tfo.' 

to print (^.•) 

•thVS.tfl. 

:x.Print its address in octal. 

Printing goes to the same place as CODE 20. This is used primarily 

for bootstrapping. All system classes will print themselves. 

theo.tfo.' 
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to read (CODE 2) 
•th75.tfl. 

Read keyboard input into a vector. This is almost identical 
in function to the SMALLTALK read routine, except that DOIT is 
signalled by <CR> at zero-th parenthesis level, and single-quote 
strings are ignored. It is only available in Nova versions. 
theO.tfO.' 



'th90.tf2. 

MESSAGE HANDLING 

th60.tf0.' 

to : (CODE 18) 

•thTS.tfl. 
to : name 

^(^ :»(:(jp'name nil :>(n'name«-caller message quotefetch) 

(Itcaller message quotefetch) 

Fetch the next thing in the message stream unevaluated 
and bind it to the name if one is there. 

^# :»(:Ce^name nil =>(irname*-caller message referencefetch) 

(ircaller message referencefetch) 

Fetch the reference to next thing in the message stream 
and bind it to the name if one is there. 



(:C^name nil i^Cfname*- caller message evalfetch) 
1t"caller message evalfetch) 

Fetch the next thing in the message stream evaluated 

theo.tfo.v 

to < (CODE 17) 

■th75.tfl, 

:C^token. token=caller.message.code[caller.message,pc]:» 

(caller.message.pc<-caller.message.pc+l. Iftrue) "(["false. 
That is, if a match for the token is found in the message, then 
gobble it up and return true, else return false. 
theO.tfO.' 

to tK ( CODE 39 ) 

to tC ( CODE 36 ) 
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to f (CODE 13) 

•th75.tfl. 

:x. then do a return, and apply x to any further message. Note 

that in (... tx+3. t^y<-y-2), the assignment to y will never 

happen, since It" causes a return. 

theO.tfO.' 

to Cf" (CODE 9) 

'th75.tfl. 

t:C^. That is, get the next thing in the message stream unevalled 

and active return it (which causes it to be applied to the messag 

**e). 
theO.tfO.' 

to # (:#) 

'th75.tfl. 

Returns a REFERENCE to its argument's hinding. 

theO.tfO.' 



•th90.tf2. 

CONTROL CLASSES 
theO.tfO.' 

to repeat token (:#token. CODE 1) 
•th75.tfl. 

repeat (token eval) Not a true apply to eval, and therefore token 
MUST be a vector. 
theO.tfO.' 

to done x «with=»(:x. CODE 25) CODE 25) 
'th75.tfl. 

done causes a pop out of the nearest enclosing repeat, for, or do. 
tOdone with valtO will cause the repeat to have value val 
theO.tfO.' 

to again (CODE 6) 
•th75.tfl. 

repeat (C^active<-active caller, eq active, class #repeat:»(done)). 
That is, redo the most recent repeat, for, or do loop. 
theO.tfO.' 

to if exp (:exp:»(^then=>(:exp. •<felse=>(:CiP'. exp)exp)error (^(no then)) 
<(ihen::^i:(^. ■<<i<^else=>(:exp) false)error C^(no then)) 
'th75.tfl. 

The ALGOL tOif ... then ... else ...tO 
theO.tfO.' 
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to for token step stop var start exp ( 

:C^var. (<if«-=>(:start.)'^start<-l). 

(<fto=>(:stop.)^^stop«-start.) 

(<5fby:>(:step.)C^step«-l.) 

<fdo. :#exp. CODE 24) 

'th75.tfl. 

An Algol-like tOfortO. 

Note the default values if tO«-tO,tOtotO,tObytO,etc., are omitted. 

CODE 24 means --repeat(exp eval). This implies tOdonetO and tOa 

**gaintO 
will work, which is correct. 
theO.tfO.* 

to do token step stop var start exp ( 

(^step<-C^start«-l. :stop. :#exp, CODE 24) 



•th90.tf2. 

INITIALIZING SYSTEM CLASSES 



th75.tfl. 

Here are the main kludges which remain from the time when we 

really didn't understand classes very well, but wanted a working 

SMALLTALK. PUT and GET are two of the principle actions of class 

class. The new verson of SMALLTALK will have class as a class 

with these actions intensional. 

theO.tfO.' 

to PUT X y z (:#x. :y. :z. CODE 12) 
'th75.tfl. 

The first argument MUST be an atom which is bound to a class 
table. The third argument is installed in the value side of that tab 

; *neA ■ 

corresponding to the name (atom) which was the second argument. 
theO.tfO.' 

to GET X y (:#x. :y. CODE 28) 
'th75.tfl. 
If tOxtO is a class table then the binding of the atom in tOytO will 

**be 
fetched. 
theO.tfO,' 
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to leech field bits : ptr ( 
isnew:»(:ptr) 
CODE 27) 
'th75.tfl. 

Lets you subscript any instance 

a[0] gives you the class, a[l] gives the first field, etc. 
aC2] gives you the pointer; a[2]Qreturns the BITS in an integer 
a[2]<-foo will dereference count previous contents, but a[2]Q-foo 
will not. 
theO.tfO.' 

PUT USER Cf=TITLE Cf»USER 
PUT f alseclass Cf=TITLE C^false 

PUT atom C^DO C^(CODE 29 

'th75.tfl. 

<|f «-=>(:x. tx — Lookup SELF and replace its value by x.) 

•<jfeval=>(f — Lookup the binding of SELF) 

<i^=^(f SELF=:) 

<f chars:>('n' ~ printname of SELF (a string)) 

thGO.tfO.' 

i«fis=>(ISIT eval) 

<Nfprint:>(disp<-SELF chars) ) 

•th75.tfl. 

Done this way (PUT used rather than using tOtotO) because we 

wanted to know where the system classes are. Hence the initial 

tOto atom X y ()tO , for example, in tOBootstrapping MagictO followed 

by the behavior here. 

theO.tfO.' 

to ev (repeat (cr read eval print)) 

PUT falseclass Cf=DO (^^(CODE 11 

<(^^ (:C#».) 
<ror^(t:) 
<«l^and:» (:.) 
^<=» (:.) 
<(-^ (:.) 

<r>^(:.) 

theO.tfO.' 



^isz»(-«ffalse=>(ttrue) <f?=» (tCf'false) :(f'.) 
^print:^(C^false print) ) 
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PUT vector t^DO Cr'CCODE 3 =>(f substr SELF x GLOB MESS) 
•th75.tfl. 
isnew=>( Allocate vector of length :. 

Fill vector with nils.) 
<C=>(:x. <]. 

(<<li^«-:>(:y. 1^y — store y into xth element. ) 

f xth element) ) 
•<|flength:>('fr length of string or vector) 
<«jfeval:»(C^pc*-0. repeat 

(null SELF[(^pc<-pc+l]=>(done) 

l^val^-SELFCpc] eval) 

Ifval) sort of... 
theO.tfO.' 
<f is:»(ISIT eval) 
^print:>(disp<-40. for x to SELF length 

(disp<-32. SELFCx] print). disp<-41) 
<fmap:>(:y. for x to SELF length 

(evapply SELF[x] to y)) ) 

PUT string Cr'DO C^(CODE 3 =>(tsubstr SELF x GLOB MESS) 

•th75.tfl. 

isnew:>(Allocate string of length :. 

Fill string with 0377s.) 
^[=>(:x.^]. 

(<<l5f <-^(:y. Ity — store y into xth element. ) 

t xth element) ) 
•<^flength=>^(1^ length of string or vector)th60.tf0. 



<is=»(ISIT eval) 

<?print=>(0 = 0^x *- SELF[1 to 9999] find first 39=» 
(disp <- 39. disp *- SELF, disp <- 39) 

SELF[1 to x-l] print. SELF[x+l to SELF length] print) 
<«5|'==>(:y is string:>(SELF length=y length:^( 

for X to SELF length (SELF[x]=yCx]=>() tfalse)) tfalse) 

tfalse) 
<5f +=»(:y is string=»(C#'x«-SELF[l to SELF length+y length]. 

tx[SELF length+1 to x length]>-y[l to y length]) 

error (^(string not found)) ) 
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PUT number C^DO C^(CODE 4 
'th75.tfl. 
<<s;f+:>(tval+:) 
<r-=»(tval-:) 
<*=>(tval*:) 
-<jr/=>(tval/:) 
-<r<=>(tval<:) 
^==>(tval=: 
<r>=»(tval>:) 
^Q^«r+=>(tval OR :) 

<r-=>(tval XOR :) 

<*=>(tval AND :) 

^/=>(tval LSHIFT :)) 
theO.tfO.' 

<fis=>(ISIT eval) 

ii^print=»(SELF>0^(nprint SELF) 
SELF=0:»(disp^060) 
SELF=0100000=>(disp«-base8 SELF) 
disp<-025. nprint 0-SELF) ) 

•thVS.tf 1. 

For floating point stuff see FLOAT 

thSO.tfO.' 

to - X (:x*tUl) 

'th75.tfl. 

An often used abbreviation, has to work for float as well. 

theO.tfO.' 



to bases i x s (:x. C^s<-string 7. for i to 7 

(s[8-i] <- 060 + X EJ7. <S^x *■ X QrUS). ts) 

•th75.tfl. 

Returns a string containing the octal representation (unsigned) of it 

**s 
iiiteger argument. 
thGO.tfO." 



(f='ISIT <- C#'«?=>(tTITLE) tTITLE=:(^). 

to nil X (#x) 

'th75.tfl. 

nil is an tOunbound pointertO, which is used to fill vectors and 

tables. 

thGO.tfO.' 
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to null X (:x. 1 CODE 37) 
•th75.tfl. 

Null returns true if its message is tOniltO, otherwise false. 
thSO.tfO.' 

to eq X (CODE 15) 

'th75.tfl. 

(f :x is-identical-to :) - compare 2 SMALLTALK pointers. 

theO.tfO.' 

•th90.tf2. 

UTILITIES 

theO.tfO.' 

to mem x y (:x. CODE 26) 
•th75.tfl. 

to mem x y (:x. <<f<-=>('ft'core/mem x ♦-:)ircore/mem x) 
mem loads integers from and stores them into real core. 
Tee hee... 

mem 0430 <- —set alto clock to zero 
mem 0430 ;read the clock 

for i to 16 (mem 0430+i ♦- cursor[i]) --put new bits into cursor 
mem 0424 ♦- mem 0425 «- 0. —reset mouse x and y to 0. 
mem 0105 *- 0. —disconnect cursor from mouse 
mem 0426 <- x. mem 0427 ♦- y. —move the cursor 
mem 0107 «- 0177. —make DEL the interrupt char (instead of ESC), 
mem 0420. —get pointer to display control block 
mem 0177034. —reads the first of 4 keyboard input words 
mem 0177030. —reads the word with mouse and keyset bits. 
theO.tfO.' 

to mouse x (:x. CODE 35) 
'th75.tfl. 

n rt -...._ „^ ,._- >,1-.„' ^„,„_ T.-.-AJ...-^ . T< — ft ._,,.., ,>^. ■■--'■:. 

back true if the top mouse button is depressed, (l=mouse 1)) comes 
back true if bottom mouse button depressed, (7=mouse 7)) comes 
back true if all three mouse buttons depressed, etc. Mouse 8 
returns the x coordinate of the mouse and mouse 9 returns the y 
coordinate. . 

th60.tf0.' 

to mx (ITmouse 8) 

to my (ITmouse 9) 
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to core ((mem 077)-mem 076) 

'th75.tfl. 

Returns the amount of space left in your Smalltalk. 

theO.tfO.' 
to kbd (0 CODE 20) 

•th75.tfl. 

Waits until a key is struck. Returns an ascii code when a key is 

struck on the keyboard. Use to kbck (1 CODE 20) to return true if 

kbd has a character, otherwise false. Used in multiprocessing. 

theO.tfO.' 

to disp X i ( 

< ^=>(:x is string=>(for i to x length (TTY-x[i])) TTY*-x) 

<«5fclear:>() •<f sub:»(:x eval)) 

'th75.tfl. 

This disp is used for bootstrapping. Later in these definitions 

(READER)it will be restored to an instance of tOdisplay frame.tO 

theO.tfO.' 

to TTY (0 CODE 20) 
'th75.tfl. 

TTY«-<integer> will print an ascii on the Nova tty. On altos, TTY 
prints in little error window at bottom of screen. 
theO.tfO.' 

to dsoff (mem 272«-0) 
'th75.tfl. 

Turns display off by storing in display control block ptr. Speeds 
up Alto Smalltalk by factor of 2. 
theO.tfO.' 

to dson (mem 0420 <- 072) 
'th75.tfl. 

Turns display back on by refreshing display control block 
pointer. 
thSO.tfO.' 

to apply X y (:#x. <to^(:y. •<{fin=»(:GLOB. CODE 10) CODE 10) 

<fin:»(:GLOB. CODE 10) CODE 10) 

to evapply x y (:x. <fto=^(:y. <in=>(:GLOB. CODE 10) CODE 10) 

'Kifin=>(:GLOB. CODE 10) CODE 10) 

'th75.tfl. 

Causes its argument to be applied to the message stream of the 

caller, or, in the case of apply foo to <vector>, to that vector. 
** 

Note that only the message is changed, and that the caller is not 
bypassed in any global symbol lookup unless the in-clause is used to 
specify another context. 
theO.tfO.' 
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to cr (disp<-13). to sp (disp«-32) 

CiP*true ♦-(^true 
Coeval «-C^eval 
to is ( <«5f?:^(tCf"untyped):(^. f false) 

•th75.tfl. 

These are used to handle messages to classes which can't answer 

queston invoking tOistO, tOevaltO, etc. 

theO.tfO.' 

to t nprint substr (ev). t 
'th75.tfl. 

prevent -to- from making these global. 
theO.tfO.' 

to nprint digit n (:n=0:>() 

(^digit<-n mod 10. nprint n/10. disp<-060+digit) 
PUT number C^'nprint #nprint. 

'th75.tfl. 

Prints (non-neg) integers in decimal with leading zeroes suppresse 
**dtQ 

theO.tfO.' 

to substr op byte s lb ub s2 lb2 ub2 ( 

:#s. :1b. :ub. :MESS. Cf'GLOB^-ub. "tf l.tee heetheO.tfO. 

:ub. (<<!jf]=>() error (^(missing right bracket)) 

C^byte <- #='lb2 <- C^ub2 <- 1. 

^find=> (Cf=op ^ «first=>(l) <flast=>(2) 1) 

+ (<<fnon=»(2) 0). :byte. CODE 40) 
<«-:> «falW (:byte. Cf=op^0. CODE 40) 
:#s2. C^op«-5. 

<(t^ (:lb2. <fto. :ub2. <(l CODE 40) 
(^ub2<-9999. CODE 40) 
^op *- 6. «^ub2 4- ub+l-lb. 

J^s2 <- (s is string:»(string ub2) vector ub2). CODE 40). 
PUT string (^substr #substr. 
PUT vector C^substr #substr. 
done 

•th75.tfl. 

substr takes care of copying, moving arid searching within strings 
and vectors. It first gets its father (string/vector) and the lower 
bound, and then proceeds to fetch the rest of the message from 
above. Some examples: 

C^(a b c d e)[2 to 3] -> (b c) 
Cf=(a bed e)[l to 5] find C#»c ->.3 
Cf=(a b c d e)[l to 5] find 0^x -> 
See vecmod for more examples. String syntax is identical. 
theO.TfO.' 
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to vecmod new end old posn ndel nins ins (C^end<- 10000. 
:old. :posn. :ndel. :ins. 

C^'nins^-Cins is vector:»(ins length-1) null ins:»(0) 1). 
C^new ♦- old[l to old length+nins-ndel]. 

(ins is vector=>(new[posn to end] <- ins[l to nins]) new[posn]*-ins). 
new[posn+nins to end] <- old[posn+ndel to end]. 
tTnew) 
'th75.tfl. 

Vecmod makes a copy of old vector with ndel elements deleted 
beginning at posn. If ins is a vector, its elements are inserted 

** at 
the same place. It is the heart of edit. 
theO.tfO.' 

to addto func v w (:#func. :w. (^v«-GET func C^DO. null v=»(error Cf^(no code)) 
PUT func C#=*DO vecmod v v length w) 
•th75.tfl. 

Addto appends code to a class definition. 
theO.tfO.' 



to q t i 1 str ( 
C^l *■ :str length. 
C^t <- disp ♦- kbd. 
(t = 10=» 
{(P't <- disp «- kbd)). 
str[C^i *- 1] ♦- t. 
repeat 
(i = I:»(done) 

10 = str[C^i «- i + 1] <- disp <- kbd::>(done)). 
tstr) 



to stream in : i s 1( 

•th75.tfl. 

CODE 22 is equivalent to... 

( 

(i = l=> 

(Cf^s ^ s[l to Cf'l - 2 * 1])) 
ts[C^i - i + 1] *- :) 
<<!i|fnext=> 
(i = l=>(tO) 
ts[C^i ^ i + 1]) 
^djfcontentsi^ 
(ts[ltoi]) 
th60.<-f0.' 
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<<jf resets 

(Cf^i *- 0) 
isnew:^ 

«of:»(:) 
string 10). 

(<ffrom:»((:) 

-1) 
0). 



«rto=»(:) 
s length)) 

(ISITeval) 
^end=> 

(ti = l) 
<«lSfprint:» 

( 
(i>0=> 

(s[l to i] print)), 
disp <- 1. 
l<i + l=>() 
s[i + 1 to 1] print)) 

to obset i input : vec size end ( 

<?add^((size=(^end«-end+l^((!^vec<-vec[l to (^size«-size+10])) 

vec[end]«-:) 
^ *-:^{0=vecll to end] find first :input:> 

(SELF add input)) 
•<ydelete:»(0=Cf=i<-vec[l to end] find first :input^(tfalse) 

vec[i to end]*-vec[i+l to end+1]. C^end«-end-l) 
<Jfunadd:»(C^input<-vec[end]. vec[end]*-nil. 

C^end«-end-l. Itinput) 
<«jfvec:»{tvec[l to end]) 

■<jfmap:>(:input. for i «- end to 1 by tUI (input eval)) 
•^print:>(SELF map Ci#=(vec[i] print, sp)) 
<<^is=»(ISIT eval) 
isnewz>(C^end<-0. C^vec«-vector (^size«-4) 

) 

to { set (Cg^set<-stream of vector 10. repeat( 
^}::^(1t'set contents) 
set «- :) 
) 
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•th90.tf2. 

PRETTY-PRINT 

theO.tfO. 

i-h75.tfl. 

This prints the code; classprint makes the header. 

theO.tfO." 

to show func t ( 

:#func. (^t*-GET func C^'DO. 
null t ::> (tC^(no code)) pshow t 0.) 
to pshow ptr dent i t :: x tabin index (:ptr :dent. 
(ptr length>4:»(tabin dent)) disp<-40. 
for i to ptr length- 1 

(Cf't «- ptr[i3. 

t is vector ::>(pshow t dent+3. 
i=ptr length-l:»() 
C^". = C^x*-ptr[i+l]=>() 
X is vector:»() 
tabin dent) 
i=l :>(t print) 
0<(^x<-index C^(. , tS [ ] =») t=> 

(x=l:»(t print. ptr[i+l] is vector:»() tabin dent) 

t print) 
0=index C^(: i^ # t [ ^ =» □ ptr[i-l]=>(disp<-32. t print) 
t print) 
disp*-41) 
to t tabin index (ev) 
t . 

to tabin n :: x (:n. disp«-13. repeat 
(n > 6=> 
(disp «- x[6]. 
Cf'n <- n - 6) 
done) 
dlio*- xFn + 11) 
(PUT tabin C^x {string 32 q string 2 q string 3 
q string 4 q string 5 q string 6}). 
'leave these blanks' 
PUT pshow C^tabin #tabin. 
to index op byte s lb ub s2 lb2 ub2 ( 

:s. :byte. Cf='op^Cf='lb^(^s2^Cp=lb2«-Cf*ub2^1. (f^ub^gggg. CODE 40) 
'th75.tfl. 

A piece of substr which runs faster. 
theO.tfO.' 
PUT pshow Cp^index #index. 
done 
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•th90.tf2. 

FLOATING FOINTtheO.tfO. 



PUT float Cf'DO <^(0 CODE 42 
<<jfipart=>(l CODE 42) 
<rfpart=>(2 CODE 42) 

(:x = 0=>(tl.O) 
X = !=>() 

X > 1:^ 

(1 = X mod 2:» 
(tSELF *(SELF * SELF) 
ipow X / 2) 
t(SELF * SELF) 
ipow X / 2) 
tl.O / SELF ipow 0-x) 
<<jfepart;» 
(SELF < :x:»(tO) 
SELF < X * x=»(tl) 
t 

(0='y *- 2 * SELF epart x * x) 
+ 

(SELF / x ipow y) 
epart x) 
<is:»(ISIT eval) 
^Sfprint^ 
(SELF = 0.0:^(disp <- 48. disp«-46. disp<-48) 
SELF<0.0=» 
(disp ♦- 025. 
fprint-SELF) 
fprint SELF) 

) 
to t fprint (ev) 

to fprint n i p q s : : fuzz ( 
'tfl.Normalize to [l,10)tfO.' 
(:n < 1:* 
(l^p ^ -(10.0 / n) 
epart 10.0) 
C^p <- n epart 10.0) 
C^n «- fuzz + n / 10.0 ipow p. 
'tfl. Scientific or decimaltfO.' 
(0^q *- p. 
^^s <- fuzz*2. 

P>6:» 

(<f='p<-0) 
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p < tU3:» 

(Cf'p *- 0) 

P<0:» 

(disp <- 48. disp«-46. 
for i <- p to tU2(disp <- 48)) 
C^s <- s * 10.0 ipow p) 
'f f l.Now print (s suppresses trailing zeros)tfO.' 
for i to 9 
(disp «- 48 + n ipart. 
(^p «- p - 1. 
C^n ♦- 10.0 * n fpart. 
p < 0=> 

( 

(p = tUl=>(disp ♦- 46)) 
n < Cf's <- 10.0 * s=>(done))) 
(p = tUl=>(disp <- 48)) 
q = 0:»() 
disp*-0145. 
q print) 
PUT fprint (f^fuzz 5.0 * 10.0 ipow tU9. 
PUT float Cf'fprint #fprint. 
done 

'Th90.tf2. 

TEXT DISPLAY ROUTINES 

theO.tfO. 

th75.tfl. 

Display frames are declared with five parameters. They are a left x, a width, 

** a top y, a height, and a string. He 
**nce — 
C^yourframe<-dispframe 16 256 16 256 string 400. 

-- gets you an area on the upper left portion of the display that starts at x 

**,y 16,16 and is 256 bits(raster units 
**) wide and 256 bits high. The string 
**(buf) serves as the text buffer, and 
**is altered by <- and scrolling. 

There are actually two entities associated with display frames—frames and wi 

**ndows. Currently both are given the s 
**ame dimensions upon declaration (see 
**isnew). 
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The four instance variables defining the window are tOwinxtO, tOwinwdtO, tOwi 

**nytO, and i-OwinhttO. The boundaries 
**of this rectangle are intersected wit 
**h the physical display. The window a 
**ctually used by the machine language 
**will reduce the size of the window, i 
**f necessary, to be confined by the ph 
**ysical display. Clipping and scrolli 
**ng are done on the basis of window bo 
**undaries. If a character is in the w 
**indow it will be displayed. If a str 
**ing or character cause overflow of th 
**e bottom of the window, scrolling wil 
**1 occur. 

The four instance variables defining the frame are tOfrmxtO, tOfrmwdtO, tOfrm 

**ytO, and tOfrmhttO. This rectangle 
**may be smaller or larger than its ass 
**ociated window as well as the physica 
**1 display. Frame boundaries are the 
** basis for word-wraparound. (Present 
**ly, if frmy+ frmht will cause overflo 
**w of the window bottom[winx+winht], f 
**rmht will get changed to a height con 
**sonant with the bottom of the window. 
** This has been done to manage scroll 
**ing, but may get changed as we get a 
**better handle on the meaning of frame 
**s and windows.). 

tOBuftO is the string buffer associated with any given instance of dispframe. 

** This is the string that is picked o 
**n the way to microcode scan conversio 
**n. When scrolling occurs, the first 
**line of characters, according to f ram 
**e boundaries, is stripped out and the 
** remainder of the buffer mapped back 
**into itself. If a tO<-tO message woul 
**d overflow this buffer, then scrollin 
**g will occur until the input fits. 

tOLasttO is a tObuf tO subscript, pointing to the current last character in th 

**e buffer. That is, the last characte 
**r resulting from a tO*-tO. 

tOLstlntO also points into the buffer at the character that. begins the last 1 

**ine of text in the frame. It is a st 
**arting point for scan conversion in t 
**he tO<-tO call. 
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tOMarktO is set by dread (see below) and points to the character in the buff 

**er which represents the last prompt o 
**utput by SMALLTALK; reading begins th 
**ere. Mark is updated by scrolling, so 
** that it tracks the characters. One 
**could detect scrolling by watching ma 
♦*rk. 

tOCharxtO and tOcharytO reflect right x and top y of the character pointed t 

**o by tOlasttO. 

The tOreplytO variable in the instance may be helpful in controlling things. 

** When the reply is 0, it means everyt 
**hing should be OK. That is, there was 
** intersection between the window and 
**display and intersection between the 
** window and the frame. When reply is 1 
**, there was no intersection between t 
**he window and the display. A 2 reply 
**means no intersection between window 
**and frame. A 3 reply means window hei 
**ght less than font height -- hence no 
** room for scan conversion of even one 
** line of text. A 4 means that the fra 
**me height has been increased in order 
** to accomodate the input. A 5 means t 
**he bottom of the window (i.e. window 
**x + window height) has been overflowe 
**d --hence that scrolling took place. 
**A 6 means that both 4 and 5 are true. 

tOjustifytO is a toggle for right justifying the contents of a dispframe. T 

**he default is and means no justifi 
**cation. Setting it to 1 causes justi 



The tOfonttO variable allows for the association of a font other than the def 

**ault font with the display frame. To 
** get a different font into core say (^ 
**something *- file <fontfilename> intos 
**tring. Then you can say disptS (C^font 
**«-something) or you can declare the fo 
**nt at the same time as the tdispframe 
** is declared as e.g. 

C^yourframe *- dispframe 3 40 3 40 string 20 font something. 

theO.tfO.' 
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(to dispframe input 

: winx winwd winy winht frmx frmwd frmy frmht 

last mark Istln charx chary reply justify buf font editor 

: sub frame dread reread ( 
<f *- =>(0 CODE 51) 

•th75.tfl. 

:s. s is number ^ (append this ascii char) 
s is string ::>(append string) 
error. 

theO.tfO.' 

<rrS=>(t(:Cf-)eval) 
'th75.tfl. 
Allows access to instance variables. For example, 

yourframetS (C^winx<-32) 
will alter the value of window x in the instance of dispframe 
called C^yourframeC^. 

theo.tfo; 

<fshow=»(4 CODE 51 3 CODE 51) 

<(i|fdisplay=>(SELF show, frame black) 
•th75.tfl. 

Show clears the intersection of window and frame (see f clear, 
below) and displays buf from the beginning through last. A handy 
way to clean up a cluttered world. 
theO.tfO.' 

<fhasmouse^(frmx<mx<f^mx+frmwd:>(1^frmy<my<f^my+frmht)'f^false) 
'th75.tf 1. 

Tells you if the mouse is within a frame. 
theO.tfO.' 

-<ffclear=»(4 CODE 51) 
•th75.tfl. 

Fclear clears the intersection of the window and frame. Hence if 
the frame is defined as smaller than the window, only the frame 
area will be cleared. If the frame is defined as larger than the 
window, only the window area will be cleared, since that space 
is in fact your tOwindowtO on that frame. 
theO.tfO.' 

^put::»(:input. •^fat. C^winx<-(^frmx«-:. (^winy<-C^frmy<-C#'chary<-:. 
C^last<-0. C^Istln^-l. SELF*-input. tcharx-winx) 
•th75.rfl. 

For them as would rather do it themselves. 
theO.tfO.' 
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<fwclear=>(5 CODE 51) 
•th75.tfl. 

Wclear clears the intersection of a window and the physical 
display. 
theO.tfO.' 

'<fscrolW(2 CODE 51) 
•th75.tfl. 

Scroll removes the top line of text from the frame's string buffer, 
and moves the text up one line. 
theO.tfO.' 

<<fclear^(l CODE 51) 
•th75.tfl. 
Clear does an fclear and sets the rOlasttO pointer into the string bu 

**ffer 
to and tOlstlntO to 1. It has the effect of cleaning out the string 
buffer as well as clearing the frame area. 
theO.tfO.' 

<mfindc :»(7 CODE 51) 
'th75.tfl. 
Find character. 
Takes two arguments — X and y (typically msex and msey). 

Returns vector: 

vec[l] = subscript of char in string 

vec[2] = left x of char 

vec[3] = width of char 

vec[4] = topy of char 
If vec[l] is -1 x,y is after the end of the string. 
If vecC2] is -2 x,y is not in the window. 
Sample call: 

C^myvec<-your frame mfindc mouse 8 mouse 9. 
theO.tfO.' 

<mfindw =»(8 CODE 51) 
'th75.tfl. 
Find word. 

Takes two arguments ~ x and y (typically msex and msey). 
Returns vector: 

vec[l] = subscript of first char in word 

vec[2] = left x of word 

vec[3] = width of word 

vecC4] = topy of word 
If vec[l] is -1 x,y is after the end of the string. 
If vec[23 is -2 x,y is not in the window. 
Sample call: 

(^myvec«-yourframe mfindw mouse 8 mouse 9. 
theO.tfO.' 
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<mfindt ^(6 CODE 51) 
•th75.tfl. 
Find token. 

Takes two arguments ~ x and y (typically msex and msey). 
Returns vector: 

vec[l] = token count, ala Smalltalk token Spaces and 

carriage returns are considered as delimiters.but 
multiple delimiters do not bump the count. Text 
delimited by single quotes is counted as one 
token, and embedded text (i.e. more than one 
quote in sequence will not cause the token count 
to be bumped (allows for embedding strings 
within strings). 
vec[2] = left x of word 
vec[3] = width of word 
vec[4] = topy of word 

If vec[l] is -1 x,y is after the end of the string or not in frame. 
If vec[2] is -2 x,y is not in the window. 
A sample call— 

C^variable<-yourframe mfindt mouse 8 mouse 9. 
theO.tfO.' 

<<Jf^ead:»(1^dread) 
'th75.tfl. 

Makes a code vector out of keyboard input. See dread below. 
theO.tfO.' 

<<ljfreread:»(1l'reread :) 
•th75.tf 1. 

Used by redo and fix. Goes back n(its argument), prompts and does 
a read from there. See reread below. 
theO.tfO.' 

^.-^„_.i_ , r^'^^3? .-*. . .. ^— V, . c*T*T -n ^t^ ^.^- ^: — .-■,A>' ... . 

' •th75.tfl. 
Evals its argument in a sub-window. Used by fix and shift-esc. 
See sub below, 
theO.tfO.' 

<<l|fknows^(ev) 

•th75.tfl. 

Whilst at the KEYBOARD, one can say 
tOyourframe knows(DOIT)tO 
and get a copy of the evaluator in the context of that instance of 
dispframe. Allows access to instance variables without going through 
the tS path. 
theO.tfO.' 
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<*jfframe :» (apply frame) 
'th75.tfl. 
Draws a border of the given color around the frame. E.g., 

yourframe frame -1. 
theO.tfO.' 

<f is =»(ISIT eval) 

isnew z^ ((^winx<-:frmx. t^winwd«-:frmwd. ^'chary<-Cp'winy«-:frmy. 
:frmht.Cf'winht<-682-winy. :buf. C^'lstln^-l. 
C^mark<-(^last«-C^charx«-C^reply*-(^justify*-0. 
(<<^font=>(:font)) ^noframe=>() frame black) )) 

dispframe knows 
to dread t flag ( 

disp«-20. (^flag<-false. C^mark«-last. 
(null #DRIBBLE=»() DRIBBLE flush) 
repeat (050>disp*-C^t<-kbd::>( 

t=010=»(last<mark:>(disp<-buf[last+l]) 

•thTS.tfl. 

Backspace only up to prompt. 

theO.tfO.' 

buf[last+l]=047=>(Cf'flag*-flag is false)) 

'th75.tfl. 

Backspace out of string flips flag. 

theO.tfO.' 
t=036=>(flag=»() done) 
•th75.tfl. 

DOIT checks if in a string. 
theO.tfO.' 

t=047=>(I^flag<-f lag is false) 
•th75.tfl. 

Flag is true if in a string 
theO.tfO." 

t=05=>(sub Cff"(ev). C^last<-last-l. disp show) 
•th75.tfl. 

Shift-Esc make sub-eval. 
theO.tfO.' 
t=04:»(disp«-010. Cf'done print. disp*-036. tJ^(done)) 

)) 

disp*-13. "frread of stream of buf from mark+1 to last) 

to sub disp ( 

C^disp*-dispframe winx+48 winwd-64 winy+14 winht-28 string 300. 

disp clear. (:)eval) 

•th75.tfl. 

Opens a sub-frame, and evals its argument in that context. 

theO.tfO.' 
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to frame a (0^a *- turtle at frmx - 1 frray - 1. 

atSwidth «- 2 . at Sink <- (^^^whiter^CO) <fblack. 1) 

do 2 (a turn 90 go frmwd + 2 turn 90 go frmht + 2) 

•th75.tfl. 

Draws a double line around the frame. 

theO.tfO,' 



to reread nip reader ((null :n:»(C^n«-l)) 

(^p«-mark. C^last<-mark-2. disp show, 
for i to n 

(C^p<-buf[l to p-1] find last 20. 

p<l::>(done)) 
i<n+l:»(error C^(no code)) 
ITread of stream of buf from p+1 to last) 
•th75.tfl. 

Counts back n prompts (n is integer arg) and then does a read from 
there. Also erases the line just typed. 
theO.TfO.' 

done 

to dclear (CODE 52) 
'th75.tfl. 

This function takes five parameters ~ 

X width y height value, and tOclearstO the display rectangle thus 
defined to the tOvaluetO given. A value, for example, puts all 
zeros into the rectangle. 
thGO.tfO.' 



to dcomp (CODE 53) 
'th75.tfl. 

Just like dclear only complement rectangle. 
th60.tf0.' 



to dmove (CODE 54) 
•th75.tfl. 

This function takes six parameters ~ source x width source y 
height destination X destination y. It takes the source rectangle 
(x and width mod 16'd as in dclear) and moves it to the destination 
X and y. Clipping will occur on display boundaries. The source will 
remain intact unless it overlaps with the destination, in which case 
the over- lapping portion of the destination wins. 
theO.tfO.' 
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to dmovec (CODE 55) 
•th75.tfl. 

Dmovec takes the same parameters as dmove, but in addition clears 
the non-intersecting source material. It is the general case of what 
happens on the display screen during a scroll, i.e. scrolling could b 

**e 
accomplished by saying disptS (dmovec winx winwd winy+fontheight 
winht-fontheight winx winy). A sample call — 

dmovec 256 256 256 256. 
This will move whatever is in the upper left hand corner of the 
display to x,y 256,256 -- and then erase the source area. 
th60.tf0.' 



to redo (1t(disp reread :) eval) 
•th75.tfl. 

Causes re-evaluation of the input typed n prompts before this. 
Setting last*-mark-2 makes, the redo statement and its prompt 
disappear with a disp show. 
th60.tf0.' 

to fix vec (C^vec<-disp reread :. 

(disp sub C^(veced vec)) eval) 

•th75.tfl. 

Like redo, except that the previous input is given to the editor in a 

subwindow. When editing is done, the resulting code is evalled 

before returning. 

th60.tfO.' 



'th90.tf2. 

TURTLES 

theO.tfO.' 
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to turtle var : pen ink width dir x xf y yf frame : f ( 
CODE 21 '<fgo=>(draw a line of length :) 
^Jjf turn:^(turn right : (degrees)) 
<«i5fgoto::>(draw a line to :(x), :(y))' 
■<jftS=>(:l^var. <(*-^itvaT <- :) 

ITvar eval) 
^pendn:*(C^pen ♦- 1. tSELF) 
-^^penup^CCf'pen <- 0. f SELF) 
<black=>(Cf»ink - 1. tSELF) 
<white:^(iJ='ink ^ 0. tSELF) 
<rxor:»(C#»ink ♦- tU2. tSELF) 
<is=>(ISIT eval) 

•<!)fhome:>(Cp'x «- frame tS (frmx+frmwd/2). 
C^y <- frame tS (frmy+frmht/2). 
(f'xf <- Cf'yf ♦- 0. {:f=dir«-270. tSELF) 
<<erase:»(frame fclear. tSELF) 
^up^CC^dir <- 270. tSELF) 
isnew:>(C^pen <- C^ink ♦- Cp'width ♦- 1. 

(<5fframe::>(t^frame ♦-:) enframe ♦- f) 
<;fat=»(:x. :y. Cf'xf ♦- C^yf <- 0. C^dir«-270) 
SELF home) 

) 
PUT turtle C^f dispframe 512 684 string 1 noframe. 

© <- turtle. 



'th90.tf2. 

THE TRUTH ABOUT FILES 

th75.tfl. 

FILESMALL: *****Smalltalk file and directory definitions***** 

also see <SMALLTALK> on Maxc for: 
install.sm, xfer, xplot 



a file is found in a directory (tOdirinsttO) by its file name (tOfnametO), an 

**d has a one tOpagetO, 512 character s 
**tring (tOsadrtO). tOrvectO is an opt 
**ional vector of disk addresses used f 
**or random page access. 

ti *- 

<directory> file <string> old ~ finds an old file named <string> in <direct 

**ory> or returns false if does not exi 
**st or a disk error occurs. 
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<directory> file <string> new — creates a new file or returns false if it a 

**lready exists, if neither old or new 
** is specified, an existing file named 
** <string> will be found or a new file 
** created, if <directory> is not speci 
**fied, the current default directory i 
**s used. 

<directory> file <string> delete — deletes a file from a directory and deall 

**ocates its pages, do not delete the 
**system directory (SYSDIR.) or bittabl 
**e (SYS.STAT.), or any directories you 
** create. 

<directory> file <string> rename <string> ~ renames file named by first stri 

**ng in <directory> with second string. 
** currently not implemented for direct 
**ory files. 

<directory> file <string> load ~ loads a previously tOsavedtO Smalltalk virt 

**ual memory, thereby destroying your c 
**urrent state. 

<directory> file <string> save — saves Smalltalk virtual memory. 

tOleadertO and tOcuradrtO are the alto disk addresses of page and the curre 

**nt page of the file, respectively. 
**tObytectO is a character index into 
**tOsadrtO. 

tOdirtytO = 1 if any label block integers (tOnextptO thru tOsn2tO) have been 

**changed; = -1 if tOsadrtO has been ch 
**anged; = if the current page is cle 
**an. the user need not worry about th 
**is unless (s)he deals directly with t 
**he label or tOsadrtO. it might be not 
**ed here that multiple instances of th 
**e same file do not know of each other 
**s activities or tOsadr's. 

tOstatustO is normally 0; -1 if end occurred with the last tOsettO; a positiv 

**e number (machine language pointer to 
** offending disk command block (deb)) 
**signals a disk error. 



<SMALLTALK>ALLDEFS.;1 MON 7-APR-75 10:53AM PAGE 1:25 



the next 8 integers are the alto disk label block. tOnextptO and tObackptO a 

**re the forward and backward alto addr 
**ess pointers. tOlnusedtO is currently 
** unused. tOnumchtO is number of chara 
**cters on the current page, numch must 
** be 512, except on the last page. tOp 
**agentO is the current page number, pa 
**ge numbers are non-negative integers, 
** and the format demands that the diff 
**erence in consecutive page numbers is 
** 1. normal file access starts at page 
** 1, although all files possess page 
** (the tOleadertO page). tOversiontO n 
**umbers > 1 are not implemented. tOsnl 
**tO and TOsn2tO are the unique 2-word 
**serial number for the file. 

the class function tOnchecktO checks that file names contain alphabetic or tO 

**legaltO characters or digits, and end 
** with a period. 

theO.tfO.' 



(to file : dirinst fname sadr rvec leader curadr bytec dirty status nextp 
backp Inused numch pagen version snl sn2 : ncheck x ( 

<<-=> (17 CODE 50) 
•th75.tfl. 

fi«-<integer>, <string>, or <file> ~ 
:x is string:* (for i to x length (SELF«-x[i])) 
X is file:* (repeat (x end:> (done) SELF ♦-x next)) 
(numch<C^bytec«-bytec+l:* 

(SELF set to write (pagen+bytec/512) bytec mod 512)) 
sadr[bytec]<-x Q0377 
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<f next=> ((<word:» ««-=» (7) 
'th75.tfl. 

fi next •word*-<integer> — write integer, 
possibly increment pointer to word boundary. 
(0=bytec O 1=> () Cf='bytec«-bytec+l) 
SELF ♦- :x/256. SELF <- x mod 256. 
th60.tf0.' 

6) 

•th75.tfl. 

fi next word — read an integer 
(0=bytec Q 1=> () Cf='bytec«-bytec+l) 
t(SELF next*256) + SELF next 
thSO.tfO.' 

<«Jfinto:» (16) 

•th75.tfl. 

fi next into <string> — read a string 

for i to :x length(x[i]*-SELF next).tx 

thSO.tfO.' 

25) CODE 50) 

•th75.tfl. 

fi next ~ read a character 
(numch<C^bytec«-bytec+l:» 
(SELF set to read (pagen+bytec/512) 

bytec mod 512=> to)) tsadr[bytec] 
theO.tfO.' 

^set=s.«to. (<rend=»(13) 
'th75.tfl. 

fi set to end ~ set file pointer to end of file. 
SELF set to read 037777 
theO.tfO.' 

<ii|fwrite^(5) 

'th75.tfl. 

fi set to write <integer> <integer> — set file 
pointer to :spage :schar. if current page is dirty, 
or tOresettO, tOset to endtO or page change 
occurs, flush current page, read pages until 
pagen=spage. allocate new pages after end if 
necessary (-1 512 is treated as start of next 
page, i.e. pagen+1 0). C^bytec«-schar 
theO.tfO.' 

-<(f read. 4) CODE 50) 
'th75.tfl. 

same as tOwritetO except stop at end 
thSO.tfO.' 
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<fskipnext=» (18 CODE 50) 
'th75.tfl. 

fi skipnext <integer> ~ set character pointer relative to 
current position, (useful for skipping rather than reading, 
or for reading and backing up, but tOendtO may not work if 
tObytectO points off the current page) C^bytec*- bytec + :. 

theo.tfo; 

<fend=> (10 CODE 50) 
•Th75.tfl. 

fi end — return false if end of file has not occurred. 
nextp=0;> (bytec<numch::»(irfalse))irfalse 
theO.tfO." 

<f tS:» (t(:i^) eval) 

<fflush^ (12 CODE 50) 
'th75.tfl. 

fi flush ~ dirty=0:» () write current page 
theO.tfO.' 

^writeseq:^ (22 CODE 50) 
•th75.tfl. 

transfer words from memory to a file 
:adr. :count. for i*-adr to adr+count-1 
(SELF next word *- mem i) 
theO.tfO.' 

<i|'readseq:^ (21 CODE 50) 
•th75.tfl, 

...from a file to memory...(mem i «- SELF next word) 
theO.tfO.' 

<fis^ (ISIT eval) 

<«i5fremove=> (dirinst forget SELF) 
'th75.tfl. 

remove file from filesopen list of directory 
theO.tfO.' 

<fclose:> (dirinst tS bitinst flush. 

SELF flush. SELF remove. tCf'closed) 
'th75.tfl. 

fi close or C^fi«-fi close (if fi is global) ~ flush bittable 
and current page, remove instance from filesopen list of 
directory 
theO.tfO.' 
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<shorten:» «to. <here=> (SELF shorten nagen by tec) 14 CODE 50) 
•th75.tfl. 

fi shorten to <integer> <integer> ~ shorten a file SELF set 
to read :spage :schar. C^x<-nextp. C^nextp«-0. 
C^numch+-schar. C^dirty«-1. deallocate x and successors 
theO.tfO.' 

<<Jfprint:> (disp *- fname) 
•th75.tfl. 

file prints its name 
theO.tfO.' 

<reset^ (11 CODE 60) 
•th76.tfl. 

fi reset — reposition to beginning of file 
SELF set 1 
theO.tfO.' 

<|'intostring:»(SELF set to end. 
C^x <- string bytec + 512 * pagen - 1. 
SELF reset, 
f SELF next into x) 

<«jfrandom:» (SELF set to end. Corvee <- vector pagan, 
for X to rvec length ( 
SELF set X 0. rvec[x] <- curadr)) 
•th75.tfl. 

fi random ~ initialize a random access vector to be used 
in fi set... new pages appended to the file will not be 
randomly accessed 
theO.tfO.' 

<|fpages^ (20 CODE 50) 
•th75.tfl. 



tradition as tOmemtO comes the power to do potentially 
catastrophic direct disk i/o (not for the faint-hearted). 
:coreaddress. :diskaddress. :diskcommand. :startpage. 
:numberof pages. :coreincrement. if -1 = coreaddress, 
copy tOsadrtO to a buffer before the i/o call, diskaddress 
(=-1 yields tOcuradrtO) and diskcommand are the alto disk 
address and command, startpage is relevant if label checking 
is performed, numberofpages is the number of disk pages 
to process, coreincrement is usually (for writing in same 
buffer) or 256 for using consecutive pages of core, use 
label block from instance of tOfitO. copy label block from 
instance, perform i/o call, copy tOcuradrtO and label block 
into instance, if -l=coreaddress copy buffer to Cp^sadrC^. 
theO.tfO.' 
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isnew=> ((^fname«-ncheck :. fname is false:> 

(error C^(bad file name)'frnil) 
(null C^dirinst*-#curdir=> ( 
(C^dirinst<-directory tS defdir) is directory^ 
(dirinst open) error C]r'(illegal directory))) 
'th75.tfl. 

set directory instance for file, if curdir is not a 
directory (null global value because file was not 
called from the context of a directory instance), 
use the default directory 

theo.tfo; 

<«i;fexists;» (24 CODE 50. tfname) 
•th75.tfi. 

return false if file name does not occur in the 
directory 
theO.tfO.' 

<fdelete=> (15 CODE 50. tC#='deleted) 
•th75.tfl. 

delete a file (see intro) 
theO.tfO.' 

C^sadr <- (•<;fusing:> (:) string 512). 
•th75.tfl. 

set up file string huf fer 
theO.tfO.' 

<jfrenamer> (C^x <- ncheck :. x is false::> 

(error C^(bad new name)irnil) 

file X exists:* (error C^(name already in use)) 

2 CODE 50. Cf'fname ♦- x. 23 CODE 50. 

SELF set 12. SELF *- fname length. 

SELF <- fname. SELF flush, tfname) 
'th75.tfl. 

check that the new name is not already in use. 
lookup the original file and change its name in its 
directory, and in its leader page 
thSO.tfO.' 

<fload:» (2 CODE 50. 8 CODE 50) 
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«old=> (2) 

sadr[13] «- friame length. 

sadr[l4 to 13+fname length] «- fname. 

^nevf^ (dirinst tS filinst is file=> (3) 19) 

1) CODE 50. 

•thTS.tfl. 

find an old file or add a new entry (with its 

name as a BCPL string in its leader page, special 

handling for new directories), machine code may 

return false 

theO.tfO.' 

<fsave:> (SELF set to write 256 0. SELF reset. 
dpO close. 9 CODE 50) 

•th75.tfl. 

load returns via save, virtual memory on file 

should have no active files or directories; dpO is 

reinitialized upon load, how to reopen other files 

(e.g. DRIBBLE)=» 

theO.tfO." 

•^l^intostringi^CffSELF intostring) 
dirinst remember SELF) )) 
'th75.tfl. 

finally, file puts itself into the filesopen list of 
**its 

directory 
theO.tfO.' 
file tS(ev) 
to ncheck str i x :: legal (0^stT*-:. 

(str is string=>(str length<255^()tfalse)tfalse) 
for i to str length 

(CiP*x<-str[i]. 

0140 < X < 0173=» ('lowercase') 
057 < X < 072:^ ('digit') 

< legal[l to 6] find x=> ('legal') 
0100 < X < 0133=> ('uppercase') 
tfalse) 
x=056:>(tstr) tstr+ (^.chars) 
'th75.tfl. 

check that the file name is a proper length string containing only lower/uppe 

**r case letters, digits, or legal char 
**acters. if name does not end with a p 
**eriod, append one. 
theO.tfO.' 
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PUT ncheck C^legal q string 6 

+-()t=>. 
done 

'th75.tfl. 

a directory is found in a directory (tOdirinsttO), has a bittable file (tObit 

**insttO) for allocating new pages, a f 
**ile of file entries (tOfilinsttO — f 
**ile names, disk addresses etc.)) and 
**a list of currently open files (tOfil 
**esopenTO which is an tOobsettO). the 
**top level, tOdistinguished nodetO of 
**the directory structure is the system 
** directory tOdpOtO (see tOdirectory k 
**nowsTO below if you also want tOdpltO 
**). dpO knows the disk number (tOdirin 
**sttO) and the true identity of the bi 
**ttable. each file must ask its direct 
**ory for the bittable when page alloca 
**tion is necessary, and the system dir 
**ectory (via its local directory) for 
**the disk number. 

Cf»di ♦- 
<directory> directory <string> old/new 

currently, <directory> and old or new must be specified. 

tOdirnametO is the system directory name and tObitnametO is the bittable name 

**. tOcurdirtO is a class variable boun 
**d to the last directory instance tOop 
**enedtO, and provides information tOwh 
**o called youtO (i.e. CALLER) to a fil 
**e or directory. tOdefdirtO is a defau 

**hich is invoked when tOcurdirtO fails 
** to be a directory, i.e. file was not 
** called in the context of a directory 
**, but globally 
theO.tfO.' 
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(to directory name exp : dirinst bitinst filinst filesopen : dirname bitname 
curdir defdir ( 

<file=> (SELF open, tapply file) 
•th75.tfl. 

di file <string>... ~ open directory, create file instance 
(see file intro) 
thSO.tfO.' 

■<«ifdirectory:> (SELF open, tapply directory) 
'th75.tfl. 

di directory <string>... ~ open directory, create directory 
instance 
thGO.tfO.' 

■^Sfopen:^ (^"curdir^-SELF. filinst is file:* () 

(bitinst>0^ (C^bitinst <- dirinst tS bitinst. 

C^filinst ♦- file filinst new) 
C^filinst ♦- file filinst old. 
C^bitinst <- (dirinst is directory:* 

(dirinst tS bitinst) file bitname old)), 
dirinst is directory:* (dirinst remember SELF)) 
•th75.tfl. 

di open ~ (normally not user-called since access 
to the directory always reopens it) initialize 
directory file and bittable instances, directory 
(except for tOtop leveltO) puts itself into 
filesopen list of its directory 
TheO.tfO.' 

<fis^ (ISIT eval) 

<<!|fprint:* (disp«-0133. filesopen print. disp*-0135) 
'th75.tfl. 

di or di print, —print the filesopen list 
theO.tfO.* 

•<fmap:* (SELF open. C^exp*-:. filinst reset, 
repeat (filinst end;* (cr. done) 
1024 > Cj^name«- filinst next word:* 

(name < 2:* () filinst skipnext 2*name-l) 
filinst skipnext 10. 

C^name <- filinst next into string filinst next, 
exp eval)) 

'th75.tfl. 

di map expression -- evaluate an expression for 

each file name 

theO.tfO.' 
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<|flist:» (SELF mapX^(disp«-name. sp)) 
•th75.tf 1. 

di list ~ print the entry names contained in 
filinst 
theO.tfO." 

<<Jfremember^ (filesopen <- :) 

<fforget::> (filesopen delete :) 
'thVS.tfl. 

...add or delete file instances in filesopen 
theO.tfO.' 

■<i;fclose=> ((filinst is file:* (filesopen map C^(vec[end] close). 

(dirinst is directory:* (dirinst forget SELF)). 

(^filinst <- filinst tS fname. 

bitinst flush, (^bitinst *- tUl)). tC^closed) 
'th75.tfl. 

di close (e.g. dpO close) or C^di«-di close (to 
release instance) —close a directory by closing all 
files and directories in its filesopen list and 
deleting it from the filesopen list of its directory, 
this is currently one way to regain space by 
closing unwanted file instances, and to change disk 
packs 
theO.tfO.' 

<f use=> (C^defdir ♦- SELF) 
'th75.tfl. 

di use ~ change the default directory 
theO.tfO.' 

<f tSr> (t(:C^) eval) 

i^^icw^ (C^filesopen «- obset. df'dirinst ♦- curdir. 
^^filinst «- :. 
dirname = filinst=> (Cf'bitinst ♦- tUl. Cf'curdir «- SELF) 

'th75.tfl. 

store the directory file name in filinst and flag 

old/new in bitinst. system directories are not 

opened 

theO.tfO.' 

(^bitinst ♦- «new=» (1) <<fold. tUl). SELF open))) 
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directory tS(ev) 

(^dirname *- q string 7 

SYSDIR. 

C^bitname ♦- q string 9 

SYS.STAT. 

'th75.tfl. 

names of the system directory and bittable 

theO.tfO,' 

(^curdir<-0. C^defdir«-C^dpO«-directory dirname. 
•th75.tfl. 

create the system directory instance (the initial default) 
on disk in a C^closedC^ state, to initialize a second disk: 

directory tS (C^curdir <- 1. C^dpl ♦- directory dirname) 
theO.tfO.' 
done 



to error adr ptr arec class :: c shocode find sub ( 

(0=C^adr«-mem 0102:»(^knows=>(ev t) dson. :ptr)) 

C^arec«-leech AREC. 

disp sub C^((0=adr:>(ptr print) 

mem 0102*-0. disp«-0377Omem adr. 

for adr+-adr+l to adr+(mem adr)QrU9 ( 

Cf-ptr*-mem adr. 

disp<-ptrZ)tU8. disp«-ptrQ0377)) 

cr c ev)) 

error knows 

to c class code cpc ( 

null arec[5]::>(.) C^arec«-leech arec[6]. C^class*-arec[0]. 

(GET class Cf='TITLE) print. 0^: print. 

arec[6] is vector=>(find arec[l]Qarec[6] => (shocode)) 

find arecCHQGET class C^DO => (shocode). 
■» 

to shocode i ( 

for i*-l to code length 

(i<cpc-5:»(disp*-056) i>cpc+5=>(disp«-056) 

sp. (i=cpc::»(disp«-031)) 

code[i] is vector:»(C^() print) code[i] print). 

) 

to find adr vec vadr 1 ( 

'th75.tf l.a tree search in vec for the address adrth60.tf0.' 
C^adr*-:. ^"l^-leech :vec. 
vec is vector is false:*('n'false) 
Cf='vadrKleech l)[l]a+l. 
(adr>vadr:»(adr<vadr+vec length+l:> 

(C^cpc <- adr-vadr. C^l«-0. C^code<-vec. 'I^true))) 
C^l<-0. for 1 to vec length 

(vec[l] is vector:»(find adr vec[l]=>(f true))) 
tfalse) 
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to sub disp ((^disp <- GET USER (^disp. (:) eval) 
done 

to kbck (1 CODE 20) 
•th76.tfl. 
Returns true if the keyboard has been hit. 

Theo.tfo; 

to button n ('ft':n=mouse 7) 
•th75.tfl. 

Returns true if that pattern is being held down 
theO.tfO.' 



•th90.tf2. 

THE SMALLTALK EDITOR — 

theO.tfO.' 



to edit func t (:#func. 

(^t«-GET func C^DO. 

null t :» (tC^(no code)) 

<f5f title::* ((veced classprint func header) eval) 

PUT func Cf=»DO veced t. 

tC^edited) 

'th75.tfl. 

Edit picks up a code vector, makes sure it is not empty and calls 

veced to edit the code body. If you say edit foo title, veced will 

edit the header as well, and the changed form will be evalled upon 

exit to redefine the function, title and all. 

Veced can be used on any vector, and is used by FIX as well as 
EDIT. It creates two new windows within the default DISP which 
exists when it is called. One is used for a menu of commands, 
the other becomes the new default window DISP. The new default 
is passed to an intermediary; and the newly edited vector is 
returned. 
theO.tfO.' 
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(to veced back newdisp menu x :: menuwidth menulen menustr 
ed edpush edtarget gettwo bugin getvec ( 
•<Jfknows::>(ev) 
C^back«-false. 
disp fclear. 

disptS (^*menu<-dispframe winx+winwd-menuwidth menuwidth 
winy (winht>139:»(winht) 140) string 70. 
menu «- menustr. 
mem 0425 *- winy + 103. 

(^newdisp ♦- dispframe winx winwd-menuwidth+2 
winy winht string buf length noframe) 
:x. C^x ♦- indisp newdisp (ed x). 
disp show, 
tx) ) 



veced knows 



'menuwidth *■ 64. 
C^menustr<-string 0. 
C^menulen ♦- 10. 
do menulen (Ci^x<-q string 9. 

C^menustr*-menustr+x[l to x[l to 9]find 13]). 

Add 

Insert 

Replace 

Delete 

Move 

Up 

Push 

Enter 

Leave 

Exit 

w iadisp disp (:disp. t'f :<^)eval) 
" 'th^S.tfl.' 
used to make DISP a new local. 
thSO.tfO.' 
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to ed ptr 1 n nrun command temp i nv nl fnth hfnth ( 
^"command *• 0. 
:ptr. 

C^fnth «- mem ((mem 70)-2). 
C^hfnth <- f nth/2. 
repeat( 

l^Kptr length. 

back:»(done with ptr) 

mem 0424 «- menu tS (winx + winwd/2). 

menu show, disp clear 

C^nvt-0. 

for n to l-l 

(ptr[n] is vector:»(disp*-044. sp 
C^nv<-nv+l. C^nl<-n) 
ptr[n] print. disp«-32) 
cr cr. 

C-command <- (edcomp (bugin menu menulen) both), 
mem 0424 <- disp tS (winx + winwd/2). 

C#»( 

((^ptr<-vecmod ptr 1 read) 

(C^ptr<-vecmod ptr (edcomp edtarget both) read) 

(gettwo. (^ptr*-vecmod ptr n nrun read) 

(gettwo. (^ptr<-vecmod ptr n nrun nil) 

(gettwo. C^temp <- ptr[n to n+nrun] 

temp[nrun + 1] «- nil. 

C^i<-(edcomp edtarget both). 

C^ptr«-vecmod ptr n nrun nil. 

(i>n =» (C^i<-i-nrun)) 

(^ptr«-vecmod ptr i temp) 
(getvec=>(C^ptr«-vecmod ptr n 1 ptr[n]) again) 
(gettwo. edpush) 
(getvec:^(ptr[n]<-ed ptr[n]) again) 

(done with ptr) 

/•<3=-i.., „i„ . +,,,,., ,■>,,,,„ ,.,:-i.i, ,,4.„.> 

) [command] eval. 

) 

) 

'th75.tfl. 

The heart of ED is a vector, containing as its elements code 

vectors. The giant vector is indexed to get the particular piece of 

program, and it is sent the message EVAL. Note that the order of 

the segments in EDl should match the order of the atom names in 

MENUVEC. 

theO.tfO.' 
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to edpush ins (^*ins<-vector 2. 

ins[l]<- ptr[n to n+nrun]. ins[l][nrun+l]«-nil. 
C^ptr«-vecmod ptr n nrun ins) 

to gettwo tl n2 (C^n«-(edcomp edtarget top). 
C^n2<-(edcomp edtarget bot). 
C^nrun «- l+n2-n. 
nrun<l:>((^n«-n2. (^nrun<-2-nrun)) 

to bugin someframe max index( 
:someframe. 
C^max <- 1+:. 
repeat (button ^ (repeat ( 

button 7 ::»(disp sub <^(ev)) 
button :»() 
done) 
done) 

) 

*index<-someframe mfindt mouse 8 mouse 9 

0<index[l]< max ^ 
(tindex) 
•th75.tfl. 

returns token index, if within range, else 
theO.tfO.' 
again 
'Th75.tf 1. 

causes an exit out of this command by restarting ed's 
repeat 
theO.tfO.' 

•■■■' ) ■■•■ ■ 

to edtarget (t bugin disp 1) 

to getvec (nv=l:»(C^n*-nl. Iftrue) 

irptr[(^n<-(edcomp edtarget both)] is vector) 

to edcomp compvec y hth (:compvec. 

C^y<-compvec[4]. 

l^hth<-(*i^both^{fnth)<ftop=>(hfnth) 
>«<«fbot^((^y<-y+hfnth. hfnth)) 

dcomp compvec[2] compvec[3] y hth 
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1t'compvec[l] 

) 
done 

•th90.tf2. 

BOOTSTRAPPING REVISITED 

theO.tfO." 

to classprint f n a b i j k flags clsv clsm arecv arecm instv instm code ( 
:#fn. Cf'code *- GET fn Cf=DO. null codez^CCf'Cno code)) 
C^a«-leech #fn. C^b*-vector 1. (^b<-leech b. C^clsm«-C^arecm«-C^instm«-0. 
C^k«-a[l]Q C^clsv<-vector k. (^arecv«-vector k. C^instv<-vector k. 
'th75.tfl. 

Pull symbols out of class table 
theO.tfO.' 

for i<-4 to 4+2*k by 2 
•th75.tfl. 

k is no. dbl entries -1, here 
theO.tfO.' 

(C^k^a[i]0 

k=(0-l)=»(again). Cf'flags <- kQtUl4. 

'th75.tfl, 

0=class, 2=arec, 3=inst 

theO.tfO.' 

flags=0:»(0=C^(DO TITLE SIZE) [1 to 3] find a[i]=> 

(clsv[C^clsm«-clsm+l] <- a[i])) 
b[2]0*- kQ3777. C^j*-aCi+l]0 
(flags=2:»(arecv[j-6] «- b[2]. arecm<j-6:»(C#*arecm»-j-6)) 

instv[j+l] «- bC2]. instm<j+l:>(C^instm«-j+l)) 

) 

'th75.tfl. 

Now make up input form. 

theo.tfo.' 

t^u <- vector 6+arecm+instm+clsm. 

a[l] ^ C^to. a[2] ^ GET fn (^^riTLE. 

a[3 to C^j<-2+arecm] <- arecv. 

(0<instm+clsm:^ (aCC^jVi+l]*-"^:- a[j+l to i^j<-j+instm] ♦- instv. 

0<clsm::> (a[C^j«-j+l]<-C^:. a[j+l to C^j<-j+clsm] *■ clsv))) 
•<lifheaderz>(a[j+l]^code. 1ta) 
for i to j (a[i] print. disp<-32) 
showpretty=>(pshow code 3) code print) 



to show showpretty (C^showpretty<-true. showev (:C^)) 
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to showev shAtom shVal (:shAtom. cr. 
(shAtom is atom::> 

(CiP*shVal *- shAtom eval. 
(null GET shVal Cf'DO=> 

((^"C^ print. shAtom print, t^*- print. 
(shVal is vector:^ (0^(ff^ print) 

null shVal:^(C^nil print)) 
shVal print. C^. print) 
classprint shVal)) 
shAtom print) 
disp*-30.) 
'th75.tfl. 

*****Keyboard translation***** 
theO.tfO.' 

to kbd (tkmapCTTY]) 

C^kmap <- string 0377. 

for i^0200 to 0377(kmap[i]^ 0177) 'tfl.ILLEGAL GETS ^^tfO.' 
for i«-001 to 0177(kmap[i] *- i) 'tf l.tf l.REGULAR ASCIPStfO.* 

'tf l.CHAR -- KEYBOARDtfO.' 
kmap[0341]<-kmap[0301]*-kmap[0274]«-kmap[0254]*-01. 

'tf l.tA — ttA or tt, 
**or ttSHF.tfO.' 
kmap[0342]*-kraap[0302]<-kmap[0236]<-kmap[0237]*-kmap[037]*-kmap[036]«-02. 

'tfl.tB — ttB or any TOP BLANK 
** KEY.tfO.' 

kmapC0343]<-kmap[0303]«-kmap[0272]«-03. 'tfl.tC -- ttC or ttSHF;tfO.' 
kmap[0344]«-kmapC0304>04. 'fl.ttD 'done' tfO.' 

kmap[0345]<-kmapC0305]«-kmap[023]<-05. 'tfl.tE - ttE or ttSHF ESCtfO.' 
kmap[0346]<-kmap[0306]<-kmapC0262]*-06. 'tf l.tF — ttF or tt2tfO.' 
kmap[0347>kmap[0307]<-kmap[0273]*-07. 'tf l.tG -- ttG or tt;tfO.' 
kmap[0353>kmap[0313>kmap[0245]*-013. 'tfl.tK -- ttK or ttSHF5tfO.' 

1 rrvorr*!. 1. ,.^ ..rnof ^1, 1 .-- -,^rAo»Trl, r»t r* »^ *•■» *>t ^ .* >t ^.. ...... 1*0 ' 

kmap[0357]*-kmap[0317]<-kmap[0242]<-017. 'tfl.tO — ttO or ttSHPtfO.' 
kmap[0360]«-kmap[0320]f-kmap[0271>020. 'tfl.tP — ttP or tt9tfO.' 
kmap[0361]<-kmap[0321]«-kmap[0261]*-021. 'tfl.tQ — ttQ or ttltfO.' 
kmap[0362]^kmap[0322]*-kmap[0300]«-022. 'tf l.tR - ttR or ttSHF2tfO.' 
kmap[0363]*-kmap[0323]«-023. 'tf l.tS -- ttstfO.' 

kmap[0364>kmap[0324]*-024. 'tf l.tT -- ttTtfO.' 

kmap[0365>kmap[0325]^kmap[0255]<-kmap[0140]«-025. 'tf l.tU - ttU or tt-tfO.' 
kmap[0366>kmap[0326]<-kmap[0265]<-026. 'tf l.tV — ttV or ttStfO.' 
kmap[0367]<-kmap[0327]^kmap[0376]*-027. 'tf l.tW -- ttW or ttSHF6tfO.' 
kmap[0370]^kmap[0330]«-kmap[0246]*-030. 'tf l.tX - ttX or ttSHF7tfO.' 
kmap[0371]^kmap[0331]«-kmap[0277]«-031. 'tf l.tY -- ttY or ttSHF/tfO.' 
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kmap[0372]«-kmap[0332]«-kmap[0276]«-kmap[0256]<-032. 

'tfl.tZ — ttZ or tt. 
** or ttSHF.tfO.' 
kmapC0333]<-kmap[0264]<-033. 'tfl.t[ - tt[ or tt4tf0.' 
kinap[0334]<-kmap[0267]«-034. 'i-fl.t\ — tt\ or tt7tf0.' 
kmap[0335]<-kmap[0375>035. 'tf l.t] - tt]tfO.' 
kmap[0337>kmap[0336>kmap[0222]<-kmap[0212]«-kmap[022]*-kmap[01"2]«-036. 

"tfl.tt -- LF or tT ♦- or ttSHF*-tfO.' 
kmap[0247]<-0174. 'tf l.» -- SHF\ or tt'tfO.' 

kinap[0257]*-0176. 'tf 1.? -- SHF6 or tt/tfO.' 

kmap[0263]<-043. 'tfl.# -- SHF3 or ttStfO.' 

kmap[0270>052. 'tfl.* - SHF8 or ttStfO.' 

kmap[0220]*-kmap[0210]*-kmap[0203<-010. 'tfl.ALL BS'StfO.' 
kmap[0225]*-kmap[0216]«-kmap[025]^015. 'tfl.ALL CR'StfO/ 
kmap[0240]-kmapC0230]-kmap[030]^040. 'tfl.ALL SP'StfO.* 

to filout disp flist i showpretty (C^showpretty <- •<jf pretty. 

dsoff (:disp is string=> (C^disp*-file disp:» () error C^(file error))) 

(<«!Hfadd:>(disp set to end)) 

(null :flist:>(defs map Cp='(showev vec[i]. cr)) 

(flist is atoin:> (showev flist. (^f list*-f list eval)) 

for i to flist length-1 (showev flist[i]. cr)) 

disp shorten to here, disp close, dson.) 

'th75.tfl, 

Filout basically does a show in an environment where the display is 

replaced by a file, filout pretty <file> or <string = file name> add 

<vector> if tOprettytO is used, the text representation is neater but 

takes longer to generate, if tOaddtO is used, function definitions ar 

**e 
appended to the file, if <vector> is not specified, tOdefstO is 
used. 
theO.tfO.' 

to filin fi (dsoff 
(:fi is string::»( 

Cr»fi *- file f i oli?.() 
dson tfalse)) 
repeat 
(fi end;:»(done) 
dsoff. 

cr (read of fi) eval print, 
dson). 
fi close. 

) 

'th75.tfl. 

Filin basically does a read-eval-print loop, but gets its input from 

**a 
file instead of a dispframe. 
theO.tfO.' 
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to type f t ((:f is string:»( 

C^f «- file f old:»(f remove) 

tfalse)) 
C^t<-string 30. 
repeat(f end:»(done) disp*-f next into t)) 

to t fool :: X (^I'knowsz^Cev) 

(^disp<-dispframe 16 480 514 168 string 520. 

disp *■ version. C^defs <- obset. 

(^fool<-#to. to to toAtm (CODE 19 defs<-toAtin. toAtm) 

PUT USER Cf=DO l^(cr read eval print). Cr='t«-0.) 
^*version«-q string 26 
SMALLTALK of April 3 

to expand x (:x. disp tS (C^winy<-C^frmy«-winy-x. frame black) 
disp show CODE 38) 
'th75.tfl. 
t is called to set up a display frame, and defs and then self-destruc 

**ts 
to save space, expand can be called to grab some storage from the 
display area to augment the SMALLTALK workspace, expand 200 
would take 200 lines off the top of the display and increase core by 
6400 words. 



THE SMALLTALK READ ROUTINE (name changed to protect ev) 
theO.tfO." 

(to junta scanner : : readl tablscan rdnum mknum rdstr rtbl type 
letbit digbit sepbit atbits qtbit 
(•<f tS:^(t(:Cf')eval) 
<«Nf ofr>((:scanner is strings 

((^scanner «- stream of scanner)) 
'scanner <- tablscan scanner type, 
dlrtbl) 
■ffdisp read)) 

junta tS (ev) 

to readl rbuf rdtb flag ( 
:rdtb. 

C^rbuf <- stream of vector 10. 
scanner read. 
tTrbuf contents) 



•• A VirbtM. J 
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to tablscan mask : source type seq isfil nxtchr ( 
^next:* 
(CODE 14 next. 
'CODE 14 is equivalent to... 
:mask=0:>(C^t«-string 1. t[l]*-nxtchr. 

C^nxtchr*-source next. ITatom t) 
seq reset, 
repeat 

(0 = nxtchr=>(done). 
= mask Q type[nxtchr + l]=>(done). 
seq <- nxtchr. 
C^nxtchr «- source next) 
ITseq contents') 
•<fskip:»CC^nxtchr «- source next) 
•<fread:^(repeat 

(rdtb[nxtchr + 1] eval)) 
isnew:^ 
(:source. 
:type. 

(^seq *- stream, 
(source is file:»(C^isfil ♦- 1)) 
SELF skip)) 

to rdnum sign base n fs( 

ensign *- (nxtchr=025:>(scanner skip. tUl)l). 

Cf^'base <- (nxtchr=060=»(8)10). 

(s^n *- raknum scanner next digbit base. 

Cf'f lag *- false. 

056 = nxtchr:> 

(scanner skip. 

(ff°is ♦- scanner next digbit 

0=fs length:»(C^f lag <- true. Itsign'^n) 

0^n <- n + (mknum fs 10)/10.0 ipow fs length. 

nxtchr=0145=>(scanner skip. tn*(10.0 ipow rdnum)*sign) 

-*> * ? _ - > . 

1tsign*n) 

to mknum str base n i( 
:str. 
:base. 
(p'n *■ 0.0. 
for i to str length 

((^n *■ (n*base) + str[i]-060) 
tn) 

to rdstr t (scanner skip. 

(^t<-scanner next qtbit. 

scanner skip. 

nxtchr=047=>(seq<-047. t'seq contents+rdstr) 

tt) 
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•th75.tf l.INITIALIZATION OF READ TABLES 

theO.tfO.' 

C^rtbl *- vector 256. 

C^type <- string 256. 

Cf^sepbit ♦- 2 * C^letbit «- 2 * Cf'digbit ♦- 2 * C^qtbit <- 1. 

(fatbits *- letbit + digbit 

to scanner n v i j ( 

:n. :v. repeat ( 

:i. 

«to=5>.(:j. for k«-i+l to j+1 ( 

type[k]«-n. rtbl[k]<-v)) 

type[i+l]<-n. rtbl[i+l]*-v) 

<fand^() done)) 
scanner C^(rbuf <-scanner next 0) to 0377. 

scanner letbit C^(rbuf<-atom scanner next atbits) 0101 to 0132 and 0141 to 0172 

** 

scanner digbit l^(rbuf<-rdnum. flag^(rbuf<-C^.)) 060 to 071 and 025. 

scanner sepbit ^'(scanner next sepbit) Oil and 014 and 015 and 040. 

scanner qtbit C^(rbuf <- rdstr) 047. 

scanner (^(scanner skip, rbuf <- (readl rtbl) eval) 020. 

scanner (^(scanner skip, rbuf *- readl rtbl) 050. 

scanner (^(scanner skip, rbuf *- nil. done) 051. 

scanner C^(rbuf «- nil. done) and 036. 

for i to type length (type[i] «- type[i] Qqtbit) 

done 

C^read «- #junta. 

to junta (PUT USER Cf=*DO Cf'(t). CODE 31) 

'Th75.Tfl. allocates display over OS after setting up tth60.tf0.' 



